home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / PowerMacInterface / appleevents.dcl next >
Encoding:
Modula Definition  |  1996-03-01  |  1.1 KB  |  34 lines  |  [TEXT/3PRM]
  1. definition module appleevents;
  2.  
  3. TypeApplSignature    :== 0x7369676E;    // 'sign'
  4. KCoreEventClass        :==    0x61657674;    // 'aevt'
  5. KAEMiscStandards    :== 0x6D697363;    // 'misc'
  6. KAEQuitApplication    :==    0x71756974;    // 'quit'
  7. KAEDoScript            :== 0x646F7363;    // 'dosc'
  8. KeyDirectObject        :== 0x2D2D2D2D;    // '----'
  9. TypeChar            :== 0x54455854;    // 'TEXT'
  10. KeyErrorNumber        :==    0x6572726E;    // 'errn'
  11. KeyErrorString        :== 0x65727273;    // 'errs'
  12. TypeLongInteger        :== 0x6C6F6E67;    // 'long'
  13.  
  14. SizeOfAEDesc :== 8;
  15. SizeOfAppleEvent :== 8;
  16.  
  17. KAutoGenerateReturnID :== -1;
  18. KAnyTransactionID :== 0;
  19. KAENoReply :== 1;
  20. KAEWaitReply :== 3;
  21. KAENormalPriority :== 0;
  22. KNoTimeOut :== -2;
  23.  
  24. ::    AEDescPtr :== Int;
  25. ::    AppleEventPtr :== Int;
  26.  
  27. AECreateDesc :: !Int !{#Char} !AEDescPtr -> Int;
  28. AECreateAppleEvent :: !Int !Int !AEDescPtr !Int !Int !AppleEventPtr -> !Int;
  29. AEPutParamPtr :: !AppleEventPtr !Int !Int !{#Char} -> Int;
  30. AESend :: !AppleEventPtr !AppleEventPtr !Int !Int !Int !Int !Int -> Int;
  31. AEGetIntParamPtr :: !AppleEventPtr !Int !Int -> (!Int,!Int,!Int,!Int);
  32. AEGetStringParamPtr :: !AppleEventPtr !Int !Int !{#Char} -> (!Int,!Int,!Int);
  33. AEDisposeDesc :: !AEDescPtr -> Int;
  34.